Libris Britannia 4/science library(b).zip/science library(b)/HAM_RAD/LOGGING/3090.ZIP/COUNTRY.PRG

Text File | 1987-03-10 | 1KB | 56 lines

* COUNTRY.PRG
* CALLED BY HAM.CMD
* REV 10/01/83
* REV 03/08/87 FOR USE ON PC
SET TALK OFF
USE COUNTRY INDEX COUNTRY
SET INDEX TO COUNTRY
DO WHILE .T.
CLEAR
@ 0,0 SAY 'ENTER [END] TO EXIT'
@ 0,30 SAY '****COUNTRY CHECKLIST****'
ACCEPT 'PREFIX: ' TO CPREFIX
STORE UPPER(CPREFIX) TO CPREFIX
    IF CPREFIX = 'END'
       SET TALK ON
       CLEAR
       RETURN
    ENDIF
FIND &CPREFIX
    IF (EOF() .OR. BOF())
       @ 12,40 SAY 'PREFIX NOT FOUND'
       @ 13,40 SAY 'CHECK ALTERNATES'
       WAIT
       CLEAR
    ENDIF
    IF PREFIX = CPREFIX
       @ 5,0 SAY 'PREFIX'
       @ 5,7 SAY 'ALTERNATE'
       @ 5,18 SAY 'SSB'
       @ 5,22 SAY 'CW'
       @ 5,25 SAY 'S6'
       @ 5,29 SAY 'S10'
       @ 5,33 SAY 'S15'
       @ 5,37 SAY 'S20'
       @ 5,41 SAY 'S40'
       @ 5,45 SAY 'S80'
       @ 5,49 SAY 'C6'
       @ 5,53 SAY 'C10'
       @ 5,57 SAY 'C15'
       @ 5,61 SAY 'C20'
       @ 5,65 SAY 'C40'
       @ 5,69 SAY 'C80'
       @ 5,73 SAY 'DXCC'
       ?
    DO WHILE PREFIX = CPREFIX .AND..NOT. EOF()
       DISPLAY OFF
       SKIP
    ENDDO
    ?
    WAIT
    ENDIF
RELEASE CPREFIX
CLEAR
ENDDO
RETURN